Top 10k strings from MicroHobby Semanal - Issue 053-056 (1985)(Hobby Press)(es)(Side A).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
7 py,px;a$(k
5 ;" PARE LA CINTA ":
4 ey1,ex;g$;
4 ey,ex1;g$;
3 m$(ey,ex1+1
2 o$(ind)=a$:
2 num=m(ind,jnd):
2 m(ind,i)=0
2 m$(ey1,ex)
2 m$(ey,ex1)
2 m$(by,r-(1
2 m$(by,r+(2
2 ,i)=m(ind-1
2 *(a$="^"):
2 )+"*"+d$+"^"+
2 (NPROG/DOS)
2 "22",CERO;B$:
2 Este es el
1 z(k,j)=w(j)*lastx/xmax:
1 z$=z$+"+"+
1 xxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxzxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzxzzzzzzzzzzzzzzzzxxxxxxxxxzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzz
1 x=x0-(y0/max*
1 w(j)=z(k,j):
1 t)*(b-a)/5.5
1 sc=1000000
1 res=(res=1
1 radio=m(ind,1
1 r,bx;"JK":
1 r$="CESAR":
1 pr=(pr-(shift=0
1 p(n+gra1-gra2,6
1 p(knd)=ind:
1 p(gra1-gra2+1
1 obtencion del polinomio
1 num=m(ind,jnd)
1 micro
1 m(ind,jnd)=num:
1 m$=m$+"+"+
1 m$(py1,px+1
1 m$(py1,px)
1 m$(py,px1+1
1 m$(py,px1)
1 m$(py,px-2
1 m$(py,px-(1
1 m$(py,px+2
1 m$(py,px+(
1 m$(f)="121212121212121212121212121212":
1 m$(ey1,ex+1
1 m$(ey1,ex)="3")
1 m$(ey,ex1)="2")
1 m$(ey,ex-1
1 m$(ey,ex+1
1 lastx=xmax:
1 ind=ind-(ind
1 hs=1000000
1 gra2=gra2-1
1 gra1=gra1-1
1 dat=shift+(shift
1 d$="<A@A@EDED <=@A@ADEDE @A@ADEDE @=@ADADE E ":
1 cara a \
1 c$=":?>?>CBCB >?>?BCBC :;>?>?BCBC >;>?B?BC C ":
1 by,r;":; ";
1 by,r;" :;";
1 by,r;" :; ";
1 b$=b$+"^"+
1 b$="hiklQRUVYZ]^abde":
1 a$="fgjgOPSTWX[\_`_c":
1 UNO;"PONGA EN MARCHA LA CINTA";
1 TZX por Manuel Gomez Amate
1 SPACE-UNO,X1
1 SPACE-UNO,CERO:
1 SPACE,LINEA:
1 SPACE,CERO:
1 RUTINA RESTAURAR
1 RUTINA GRAVACION
1 Polino1 m
1 Pinky
1 OTRA PARTIDA? (S/N)
1 OPERACIONES CON POLINOMIOS
1 Loteria
1 Le mans
1 LUIS MIGUEL LACOSTA JIMENEZ C/ BATALLA DE PAVIA,10,5,B ZARAGOZA
1 Integral z
1 I,CERO;,,:
1 Hobby Press
1 Entrada de datos
1 DOS=UNO+UNO
1 Complejo ?
1 Castellano
1 CINTA 14 CARA A
1 CERO;" ";
1 CARA A
1 C$=" Por favor, elija un programa "
1 B$=" "
1 ="L")-(378
1 ;"suma(";d$;")= ";b$:
1 ;"resta(";d$;")= ";b$:
1 ;"q(x)= ";q$'':
1 ;"producto(";d$;")= ";b$:
1 ;"p(x)= ";p$;
1 ;"ganadora"
1 ;"f(x)=";c$
1 ;"f(x) dx"
1 ;"combinacion";
1 ;"cociente(";d$;")= ";c$''"resto(";d$;")= ";b$:
1 ;"bloque?"
1 ;"VOLUMEN DE REVOLUCION:":
1 ;"VIDAS ";vi
1 ;"Tipo de boleto:";
1 ;"Tiene ";q;"! aciertos"
1 ;"TE HA DEVORADO":
1 ;"Selecciona opcion:"
1 ;"SUPERFICIE LATERAL: ":
1 ;"RECORD":
1 ;"RECORD ";re;
1 ;"Q.-Arriba A.-Abajo"
1 ;"Pulse una tecla":
1 ;"Pulsar para continuar"
1 ;"PUNTOS";
1 ;"PUNTOS ";pu;
1 ;"PULSE CUALQUIER TECLA."
1 ;"POR ";r$
1 ;"PINKY SE HA METIDO EN LA NEVERA;EVITA QUE EL MONSTRUO DE LAS TINIEBLAS LE DEVORE PARA ELLO DEBERAS APLASTARLO CON LOS CUBITOS DE HIELO";
1 ;"PERO SUPERASTE EL RECORD";
1 ;"PARE LA CINTA":
1 ;"Otro bloque?(s/n)"
1 ;"O.-Izquierda P.-Derecha";
1 ;"NO HAY FRENOS NI MARCHA ATRAS!"
1 ;"NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN";
1 ;"NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN":
1 ;"NIVEL ";ni:
1 ;"NIVEL ";ni;"
1 ;"Max.Comun.Divisor= ";b$:
1 ;"LOTERIA PRIMITIVA"
1 ;"LONGITUD: ":
1 ;"Introduzca los num. ";
1 ;"Introduzca los 6 num. de la";
1 ;"Introduce el segundo polinomio:":
1 ;"Introduce el primer polinomio:":
1 ;"Indique opcion:";
1 ;"INTEGRAL:":
1 ;"GAME OVER":
1 ;"Esas apuestas son ";b4;" pesetas"
1 ;"El ultimo resultado fue :"''" ";v$''"Si desea introducirlo en p o q pulsa esa tecla. En caso contra-rio pulsa cualquier otra":
1 ;"ESPERE UN POCO":
1 ;"ESCRIBE TU NOMBRE (max.9)":
1 ;"ELIGE OPCION":
1 ;"Debes conducir tu coche por el recorrido,procurando no chocartecontra los muros y recogiendo las banderas en el menor tiempo posible."
1 ;"De cuantos num. quiere el";
1 ;"Cuantos bloques a rellenar?"
1 ;"CUANTO LO SIENTO";
1 ;"CALCULANDO":
1 ;"BONUS ";bo;
1 ;"BONUS ";bo;
1 ;"BLOQUE ";s
1 ;"<=<=<=<=<=<=<=<=<=<=<=<=<=<=<=":
1 ;":;:;:;:;:;:;:;:;:;:;:;:;:;:;:;";
1 ;"9........EMPUJAR";
1 ;"8........DERECHA";
1 ;"7.........ARRIBA";
1 ;"6..........ABAJO";
1 ;"6)NUEVO.POL."
1 ;"5......IZQUIERDA";
1 ;"5)M.C.D.";
1 ;"4)COCIENTE";
1 ;"3.-RESETEO"
1 ;"3)PRODUCTO";
1 ;"2.-INSTUCCIONES";
1 ;"2-Comprobar aciertos"
1 ;"2-Apuestas multiples"
1 ;"2)RESTA";
1 ;"1.-JUGAR";
1 ;"1-Rellenar boleto";
1 ;"1-Apuestas sencillas";
1 ;"1+[f]'^2";:
1 ;"1)SUMA";
1 ;"(La variable es ";d$;")"
1 ;" fix "
1 ;" Xmax "
1 ;" INCLUYE SIEMPRE ""ABS"" EN LA BASE DE LAS POTENCIAS (^)"
1 ;" PULSA UNA TECLA PARA CONTINUAR"
1 ;" PULSA UNA TECLA":
1 ;" NOTA:EL ERROR DE INTEGRA- CION PUEDE SER APRECIABLE SI EL NUMERO-PRECISION ES BAJO ,SIN EMBARGO,EL TIEMPO DE EJECUCION CRECE SI LO HACE ESTE. 4 O 5 SON BUENAS SOLUCIONES SI LAS FUNCIONES A INTEGRAR SON SENCILLAS. EL ERROR DE INTEGRACION ES MENOR O IGUAL QUE LA AMPLITUD DEL INTERVOLO DIVIDIDO POR 180 YPOR 16^(NUM-PRECISION) Y TODO MULTIPLICADO POR EL VALOR MAXIMO DE LA DERIVADA CUARTA DE LA FUNCION INTEGRADA EN EL INTERVALO. PULSA UNA TECLA PARA CONTI-NUAR."
1 ;" ":
1 ;" "
1 ;" ":
1 ;" ":
1 ;" ";
1 ;" ":
1 ,r;" <= ":
1 ,pr+(shift
1 ,i)-m(ind,i):
1 ,i)+m(ind,i):
1 ,D.L.: M-36598-84
1 ,"fadofbdnfcdmecdldcelccflcbfmgcfnhcgnhbgmibhmfdimfecleegebldehebmdfhfbncfifbkcgjfckchdkbhhgdjahhhcjdhhibjehcifhgidifi"
1 ,"baiabbibbcicbdidcdbeieddbfifedbgigfdbhihgdbiiihhbjijbkcjikghblildjbmhlfhbnglejcngmehcmhmfjdmimdhdningjenhnemgnfmfn"
1 ,"ajbjbicjbkbhdjblbgejclbmbffjdlbnbegjelcnbdhjdnbchiijenbbhhikfnbaghihilgncaggfhhlhndagfehglineageffdhfagdefgagcdfhagbia"
1 ,"aebececdcfcccgcbdgdbchebcifbcjgbckhbclhacmhcbmhdbnhedmiedndieneifnfifmfhflghfkhhgnihhniginfehmeehldehkijhj"
1 ,"achebcgeccfedceeecdefccegcbehcbficbgjccgbhjddgbijeegbjjffgbkjgggbljhhgbmjibnjjcnjkdnjlenjmfnjngninhnhmhlhkhjhigifieididjdkdl"
1 ,"abjnbbincbhndbgnebfnfbengbdnhbcnibbnicbmidbliebkifbjigbiihbhhhchghdhfhehgddlfdeledflddglcdhlbdilbejlbfjkcfjjdfijefhjffgjgffjejdj"
1 ,"aadoabdnacdmbcdlccdkdcdjecejfcfjfdfifagifbhifeiigejihecjhdbjhcbihbbhbnchcndhakdgbkdffmdeflddglfnhlgnhmhnhfhgig"
1 +" PUNTOS":
1 *f(x)^2 dx "
1 *** CINTA-MICROHOBBY ***
1 *(o$(ind-1
1 )=p(gra1,5
1 )=o$(ind):
1 )=(x-a)*111
1 )="343434343434343434343434343434":
1 )/p(gra2,4
1 )*p(gra1-gra2+1
1 (ey-py)=-1
1 (ex-px)=-1
1 (VALOR)<"A"
1 ((xmax-a)*(xmax-b))>0
1 "fix ";fix:
1 "Xmax ";xmax:
1 "QUIERES SU LONGITUD? (S/N)";
1 "QUIERES LA SUPERFICIE? (S/N)";
1 "Precision(de 3 a 9)=";j
1 "OTRA?(s/n)";s$
1 "Numero:";g(d)
1 "Numero:";f(o)
1 "Nombre de la variable? ";
1 "MicroHobby Semanal numeros 53 a 56
1 "Mete f(x)=";
1 "Limite superior b=";b
1 "Limite inferior a=";a
1 "INTEGRAL"
1 "E-Integral","F-Complejo"
1 "A-Le mans","B-Polino1","C-Loteria","D-Pinky"
1 "@@ && &&&&& &&&&&&& &&& &&&& @";"@@ @"
1 "@@ @ @ & @";"@@ @@ @ @@@ @";"@@ @@ @@@@@ @@@@@@@ @@@ @@@@ @"
1 "@@ @@@ @ @";"@@&&& @&&&& @ &&&&& &@& @"
1 "@& @@ &&&&& @@@&&&& &&& &&&& @";"@ @@ @@& @"
1 "@& && @&&&@ @&&&&&& &&& &&&& @";"@ @
1 "@ @@@&& &&&@& @@ @@ @@ @";"@ &&&& @ && && && &&& @"
1 "@ @ @ @ & &@& @@@@@ @@@";"@ && & @ & & &&&&& &&@"
1 "@ @ @ @";"@ @ @ @";"@@ @@ @@@@@ @@@@@@@ @@@ @@@@ @"
1 "@ & @";"@ @ @@ @";"@@ @@ @@@@@ @@@@@@@ @@@ @@@@ @"
1 "64"+NPROG)
1 "5";"cara: ";
1 "5";"Programa: ";
1 "5";"Programa inexistente":
1 "5";"'R' Vuelve al menu"
1 "5";"'L' Carga el programa";
1 "32"-I;C$(
1 "22",CERO;C$(I
1 "22",CERO;B$
1 "22",CERO;
1 " LE MANS "
1 !!RECORD!!
1 de su bloque";
1 RUTINA PRINCIPAL
1 PULSE UNA TECLA PARA JUGAR
1 @ @ @"
1 PINKY PINKY
1 REGLAS DEL JUEGO
1